#!/usr/bin/perl

use FindBin qw($Bin $Script);
use Cwd qw(getcwd abs_path);
$Bin = abs_path($Bin);

require Tk::LabEntry;
require Tk::DialogBox;
use Tk;

my $window = MainWindow->new;
$window->geometry("350x100");
$window->title("WARNING:");

$window->Label(-text => "\n*** A L A R M *** A L A R M *** A L A R M ***")->pack(-anchor => "n");
$window->Label(-textvariable => \$answer, -justify => "center")->pack(-anchor => "n");

MainLoop;
exit 0;

sub BEGIN {
	$answer = "\n(Please logon to Console to check for the system status)\n";
}

